|
600
|
How can include the values in the inner cells in the drop down filter window
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oColumn
LOCAL oItems
LOCAL s
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:DrawGridLines := -2/*exRowLines*/
oGantt:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oGantt:SetProperty("Description",1/*exFilterBarBlanks*/,"")
oGantt:SetProperty("Description",2/*exFilterBarNonBlanks*/,"")
oColumn := oGantt:Columns():Add("Single Column")
oColumn:HTMLCaption := "Single column with <b>inner cells</b>"
oColumn:ToolTip := "Click the drop down filter button, and the filter list includes the inner cells values too."
oColumn:DisplayFilterButton := .T.
oColumn:DisplayFilterPattern := .F.
oColumn:FilterList := 64/*exIncludeInnerCells*/
oGantt:ShowFocusRect := .F.
oItems := oGantt:Items()
s := oItems:SplitCell(oItems:AddItem("S 1.1"),0)
oItems:SetProperty("CellCaption",,s,"S 1.2")
oItems:SetProperty("CellHAlignment",,s,1/*CenterAlignment*/)
oItems:SetProperty("CellBackColor",,s,0x1000000)
oItems:SetProperty("CellWidth",,s,84)
s := oItems:SplitCell(oItems:AddItem("S 2.1"),0)
oItems:SetProperty("CellCaption",,s,"S 2.2")
oItems:SetProperty("CellHAlignment",,s,1/*CenterAlignment*/)
oItems:SetProperty("CellWidth",,s,84)
s := oItems:SplitCell(oItems:AddItem("S 3.1"),0)
oItems:SetProperty("CellCaption",,s,"S 3.2")
oItems:SetProperty("CellHAlignment",,s,1/*CenterAlignment*/)
oItems:SetProperty("CellBackColor",,s,0x1000000)
oItems:SetProperty("CellWidth",,s,84)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
599
|
How can I sort the value gets listed in the drop down filter window
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oColumn,oColumn1
LOCAL oItems
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:LinesAtRoot := -1/*exLinesAtRoot*/
oGantt:MarkSearchColumn := .F.
oGantt:SetProperty("Description",0/*exFilterBarAll*/,"")
oGantt:SetProperty("Description",1/*exFilterBarBlanks*/,"")
oGantt:SetProperty("Description",2/*exFilterBarNonBlanks*/,"")
oColumn := oGantt:Columns():Add("P1")
oColumn:DisplayFilterButton := .T.
oColumn:DisplayFilterPattern := .F.
oColumn:FilterList := 16/*exSortItemsDesc*/
oColumn1 := oGantt:Columns():Add("P2")
oColumn1:DisplayFilterButton := .T.
oColumn1:DisplayFilterPattern := .F.
oColumn1:FilterList := 32/*exSortItemsAsc*/
oItems := oGantt:Items()
h := oItems:AddItem("Z3")
oItems:SetProperty("CellCaption",h,1,"C")
oItems:SetProperty("CellCaption",oItems:InsertItem(h,,"Z1"),1,"B")
oItems:SetProperty("CellCaption",oItems:InsertItem(h,,"Z2"),1,"A")
oItems:SetProperty("ExpandItem",h,.T.)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
598
|
Is there a way to break the hours into 15 minute increments just showing lines instead of the minute numbers
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oLevel,oLevel1
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:BeginUpdate()
oGantt:Chart():FirstVisibleDate := "02/05/2008"
oGantt:Chart():LevelCount := 3
oGantt:Chart():Level(0):Label := "<b><%mmm%> <%dd%></b> <%yyyy%> "
oLevel := oGantt:Chart():Level(1)
oLevel:Label := "<%hh%>"
oLevel:Alignment := 1/*CenterAlignment*/
oLevel1 := oGantt:Chart():Level(2)
oLevel1:Label := ""
oLevel1:Unit := 1048576/*exMinute*/
oLevel1:Count := 15
oGantt:Chart():UnitWidth := 6
oGantt:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
597
|
How can I change the visual appearance of the milestone bar using EBN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oAppearance
LOCAL oBar
LOCAL oChart
LOCAL oItems
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oAppearance := oGantt:VisualAppearance()
oAppearance:Add(1,"gBFLBCJwBAEHhEJAEGg4BKMMQAAYAQGKIYBkAKBQAGaAoDDMMILQiMQwjRBMKgBBCLIxiGK4DhiF4aRTHUKAAKQahLEaSZLhEZRQiqA4sS5FQBSBDQFwSByEY6mSaYJAWK4tCyNM7SfQAbxnAgYaLAAYRUjuHZOTZAc4UfAdFL/K4AKrfeZIeAiCRQGiYZyHKaRShjDwXKLIIjbJhkNoJChCNQgBScPgxCx8JypaCaar2fjQM6zWAMdb2Cz7PjDH7wPA1WYJRaDYjhcB4LheAqGXBWUYLYb8XS3EKJYhiWA4HjqFjGJpcEzPbRiNx3H6SABlLLaLo7JpGO52FrTHZjXyzLqBVpoOyEbrmcozYzjN41RpWETfQYDcwteqcLprhGVZrm6dp8j4bAnDQP5Uh+OpcH6R4Lg2YJvEIeg6kWEoJB2ZZyG6GoLCSXxtG+IZ1GmfhJjcawNFWfB/h+V5pnUc5VhWeZ4BMX4jlySwtiAJodlEYRaBYFgHHgIA2gG" +;
"ExkFUdxFl6A5hgUbgXgcVRzFiXA3CICARAEgI")
oAppearance:Add(2,"CP:1 -6 0 5 0")
oChart := oGantt:Chart()
oChart:FirstVisibleDate := "01/01/2001"
oBar := oChart:Bars():Add("MilestoneEBN")
oBar:SetProperty("Color",0x2000000)
oBar:Height := 14
oGantt:Columns():Add("Tasks")
oItems := oGantt:Items()
oItems:AddBar(oItems:AddItem("Milestone"),"Milestone","01/02/2001","01/02/2001 00:00:01")
oItems:AddBar(oItems:AddItem("Milestone EBN "),"MilestoneEBN","01/02/2001","01/02/2001 00:00:01")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
596
|
How can I change the visual appearance of the summary bar using EBN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oBar
LOCAL oChart
LOCAL oItems
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:VisualAppearance():Add(1,"gBFLBCJwBAEHhEJAEGg4BGICg6AADACAxRDAMgBQKAAzQFAYZhhBaERiGEaIJhUAIIRZGMQxXAcMQvDSKQJhGDAADEMgyAJCIxjPIgZBoGqPBpASQJUhkMocR7HMygBIkSRNA8kMwxdQEaw9ECRIDpGaYWTFDhsABTVQRLL0Tw9ISERqoSSaGgkCYaA7CNJ0PBNJSjJ6LJZGURbKqyCQ1DBbUB3BaUaQ9JaKa7pKa7cpWKIqSxEMrxcLFcT5DSbYDxGjLEhmPZBVZQNBxtJbFQHWJCNgzVAdOAAfzQM70GpMQoWJYeVpEObSBD1dABTCBczADYoex7ID+aJuGiYVZdWxJOjfbhkTTIJAaCawABrWxR8iHN5paTnUpzDjwbg0kqRRyr+XwjA8Go/HSBp6g6KJTFcGpWmYdg8H6dJTH0EZelueBfBuLwyBMd50nIfR+kmXB4BECQUAaEYMHQHRHCGFRYI2ZAwEIExghQZA2EIQoGGoEhOgGBBYlAeYYHM" +;
"WJcDcGx4HYHoHmICIFjeBohkaDAAC2DAjBYJIIiKSI2CSC5hjQJBsCOCwYiIKoGmKWJkn6DANkiWgzCwYwolAcQkksWJaCuDohlicg2hDQR+EELBInKcJohMJBomILoGmISQuESFBOgkOQDg+SoTEyfoXCUSImDyGZhjkaI1hcJgTnoXgACYCYKG2GQkEkVJchKIoZDIbIciYKY+HEP4mlmThSg+aBIlKBYUCUKgGHyG4jEkPoKiAKI6D6EokGkSgyECF5jEKVJZD+aYqHKG4nGoCh+iKJ4qEqBokh+KYag6JoqmqKo2iWJpqgKRJHDiT5qk6NYtCsapmjiLprHqdo6i8awan6QovCwOp6kSLQsBsHpGjKbBbBaMYhm0CgalILBtBsUpTiGUIUAQgIA==")
oChart := oGantt:Chart()
oChart:FirstVisibleDate := "01/01/2001"
oBar := oChart:Bars():CallMethod("Copy","Task","Summary")
oBar:SetProperty("Color",0x1000000)
oBar:Height := 16
oGantt:Columns():Add("Tasks")
oItems := oGantt:Items()
oItems:AddBar(oItems:AddItem("Task 1"),"Task","01/02/2001","01/04/2001")
oItems:AddBar(oItems:AddItem("Task 2"),"Summary","01/05/2001","01/07/2001")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
595
|
How can I change the visual appearance of the task bar using EBN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oBar
LOCAL oChart
LOCAL oItems
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:VisualAppearance():Add(1,"gBFLBCJwBAEHhEJAEGg4BGoCg6AADACAxRDAMgBQKAAzQFAYZhhBaERiGEaIJhUAIIRZGMQxXAcMQvDSKQJhGLhQiSJoJDSBEgSXDIZQ5D6OZYACDJQACJYJTbAYzyPJkPRAA6EZCmGAwCglf5HABRb7xNLkbQ8GySKJnWCQJhoD5BSLCNRUTRFFQtGgZBpEWwLCjQNQwWLKFoTJIEPSBDKqYDoKYqTgOOZOThHQz3HakQRdAa/ZpnaKpUo2d47XjMWBwGA0EzeAAGaxoShqdoiFaGU7UOJVJBOGwHK6BchoMAKbp6XoVWRaOAWLZWVABM7XLZxbLccyGfZ1XhdV5UbqUMznR7PNrjLKIJpCOJbbyAFwgBaeQABYLhK7iHRmi8XYwjMWpjFWOx1GIB5LmgdB4HCEBECSIBpDGHQOicIwokYPImikEIJj6eJIloEgogSc40FGcJEFiYZIG2VIoAURw1g2QxyAQNwNAMPJOgIYI4CoDIBmAeAKBIUpQDU" +;
"KJYDoTpIB4vxgmgdgNgeYZDDoFw7CEJhQn+BohmKfImCWSZRlgYwikYMQ0gwF4DniTA/gwBJYjQYwsgoIg6AyCRQDiIJODAZBImoOguAmMZ4lQLIJjOMI3CYZJpEIT4KiKSI6DqD5ZGAAgHC2DAjBYR4SGUGYGE+GIlCmFhRhIB5iFAbwWsiJgMhoCoxngV4ZCcSYOHaGYnHmIg8COJpoCoOISmSWZeHWHgoEkRoAg4EIYB4NogmiSgKg6GRjGoJgFh+ZJKDaBYjmgaQygiBRUHmbhoDsTAyiqIIoioGoOw8aoKhKKoemeOIaAeF5HmqHoqiyKxKgYaN/locgBiuZRojoVIok8cwsjaMBLGqDoAhGIpoEYWYEmAIxUkQLZmgiYg2g2I4JiCQwuAqWIOIkEAQICA==")
oChart := oGantt:Chart()
oChart:FirstVisibleDate := "01/01/2001"
oBar := oChart:Bars:Item("Task")
oBar:SetProperty("Color",0x1000000)
oBar:Height := 16
oGantt:Columns():Add("Tasks")
oItems := oGantt:Items()
oItems:AddBar(oItems:AddItem("Task 1"),"Task","01/02/2001","01/04/2001")
oItems:AddBar(oItems:AddItem("Task 2"),"Task","01/05/2001","01/07/2001")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
594
|
How can I change the visual appearance of the task bar using EBN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oBar
LOCAL oChart
LOCAL oItems
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:VisualAppearance():Add(1,"gBFLBCJwBAEHhEJAEGg4BZsIQAAYAQGKIYBkAKBQAGaAoDDMMILQiMQwjRBMKgBBCLIxiGK4DhiGoZATCMbDBIcSwSGgCJCjeS4ZDKHIXSxFUKTBAcSQTGyBRokaYZRi6A4+TRPETTWAEcABHSbQCoKTKAoCHpLQLMYxDKItJSpGYaRgqWCaZpuUIaUzKVbxbK9CSMGiQbIsOJrBqqQozWZHVITLR9VgBNqga7uGR5DoqdovU5dVTVda9Ly5LSsMQvfALCqOe45URdNp3RiVBYfI6+cZvfJLWh4NqeAbCMC1UJoYhlUKCBg0TRoVo9AIDX5QWaYXC0AkBA==")
oChart := oGantt:Chart()
oChart:FirstVisibleDate := "01/01/2001"
oBar := oChart:Bars:Item("Task")
oBar:SetProperty("Color",0x1000000)
oBar:Height := 16
oGantt:Columns():Add("Tasks")
oItems := oGantt:Items()
oItems:AddBar(oItems:AddItem("Task 1"),"Task","01/02/2001","01/04/2001")
oItems:AddBar(oItems:AddItem("Task 2"),"Task","01/05/2001","01/07/2001")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
593
|
How can I clip the HTML text or caption inside the bar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oBar
LOCAL oItems
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oBar := oGantt:Chart():Bars:Item("Task")
oBar:Pattern := 32/*exPatternBox*/
oBar:Height := 13
oItems := oGantt:Items()
h := oItems:AddItem("Task 1")
oItems:AddBar(h,"Task","01/02/2001","01/06/2001","K1","This is a bit of text that get's clipped")
oItems:SetProperty("ItemBar",h,"K1",4/*exBarHAlignCaption*/,3)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
592
|
How can I align the text/caption on the scroll bar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:SetProperty("ScrollPartCaption",1/*exHScroll*/,512/*exLowerBackPart*/,"left")
oGantt:SetProperty("ScrollPartCaptionAlignment",1/*exHScroll*/,512/*exLowerBackPart*/,0/*LeftAlignment*/)
oGantt:SetProperty("ScrollPartCaption",1/*exHScroll*/,128/*exUpperBackPart*/,"right")
oGantt:SetProperty("ScrollPartCaptionAlignment",1/*exHScroll*/,128/*exUpperBackPart*/,2/*RightAlignment*/)
oGantt:ColumnAutoResize := .F.
oGantt:Columns():Add(Transform(1,""))
oGantt:Columns():Add(Transform(2,""))
oGantt:Columns():Add(Transform(3,""))
oGantt:Columns():Add(Transform(4,""))
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
591
|
How do I programmatically control the position of the horizontal scroll bar in the chart area, so I can specify a range of dates to scorll within
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oChart
LOCAL oItems
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:BeginUpdate()
oGantt:Columns():Add("Task")
oChart := oGantt:Chart()
oChart:LevelCount := 2
oChart:SetProperty("PaneWidth",.F.,56)
oChart:SetProperty("ScrollRange",0/*exStartDate*/,"01/01/2001")
oChart:SetProperty("ScrollRange",1/*exEndDate*/,"01/31/2001")
oChart:FirstVisibleDate := "01/12/2001"
oGantt:SetProperty("ScrollPartCaption",2/*exHChartScroll*/,512/*exLowerBackPart*/,Transform(oGantt:Chart:ScrollRange(0/*exStartDate*/),""))
oGantt:SetProperty("ScrollPartCaptionAlignment",2/*exHChartScroll*/,512/*exLowerBackPart*/,0/*LeftAlignment*/)
oGantt:SetProperty("ScrollPartCaption",2/*exHChartScroll*/,128/*exUpperBackPart*/,Transform(oGantt:Chart:ScrollRange(1/*exEndDate*/),""))
oGantt:SetProperty("ScrollPartCaptionAlignment",2/*exHChartScroll*/,128/*exUpperBackPart*/,2/*RightAlignment*/)
oItems := oGantt:Items()
h := oItems:AddItem("Task 1")
oItems:AddBar(h,"Task","01/15/2001","01/18/2001","K1")
h := oItems:AddItem("Task 1")
oItems:AddBar(h,"Task","01/05/2001","01/11/2001","K1")
oGantt:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
590
|
How can I programmatically control the position of the "splitter" between the item list on the left side and the gantt chart on the right
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Chart():SetProperty("PaneWidth",.T.,196)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
589
|
How can I add a milestone bar and some text in the chart area
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
h := oItems:AddItem("Task 1")
oItems:AddBar(h,"Milestone","01/02/2001","01/02/2001",,"<a1>text</a> outside")
oItems:SetProperty("ItemBar",h,,4/*exBarHAlignCaption*/,18)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
588
|
How can I display or align the bar's caption or text outside of the bar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oGantt:DefaultItemHeight := 32
oItems := oGantt:Items()
h := oItems:AddItem("Task 1")
oItems:AddBar(h,"Task","01/03/2001","01/05/2001","K1")
oItems:SetProperty("ItemBar",h,"K1",3/*exBarCaption*/,"<b>to do</b>")
oItems:SetProperty("ItemBar",h,"K1",4/*exBarHAlignCaption*/,18)
oItems:SetProperty("ItemBar",h,"K1",5/*exBarVAlignCaption*/,16)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
587
|
How can I display or align the bar's caption or text outside of the bar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
h := oItems:AddItem("Task 1")
oItems:AddBar(h,"Task","01/04/2001","01/06/2001","K1")
oItems:SetProperty("ItemBar",h,"K1",3/*exBarCaption*/,"to do")
oItems:SetProperty("ItemBar",h,"K1",4/*exBarHAlignCaption*/,16)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
586
|
How can I display or align the bar's caption or text outside of the bar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
h := oItems:AddItem("Task 1")
oItems:AddBar(h,"Task","01/02/2001","01/06/2001","K1")
oItems:SetProperty("ItemBar",h,"K1",3/*exBarCaption*/,"to do ")
oItems:SetProperty("ItemBar",h,"K1",4/*exBarHAlignCaption*/,18)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
585
|
Is there any option to count the non-working days
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h,var_ItemBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:BeginUpdate()
oGantt:Chart():FirstVisibleDate := "01/01/2002"
oGantt:Columns():Add("Task")
oItems := oGantt:Items()
h := oItems:AddItem("Task 1")
oItems:AddBar(h,"Task","01/02/2002","01/04/2002","A")
var_ItemBar := oItems:ItemBar(h,"A",258/*exBarNonWorkingCount*/)
oGantt:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
584
|
Is there any option to count or to specify the working days
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h,var_ItemBar
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:BeginUpdate()
oGantt:Chart():FirstVisibleDate := "01/01/2002"
oGantt:Columns():Add("Task")
oItems := oGantt:Items()
h := oItems:AddItem("Task 1")
oItems:AddBar(h,"Task","01/02/2002","01/04/2002","A")
var_ItemBar := oItems:ItemBar(h,"A",257/*exBarWorkingCount*/)
oGantt:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
583
|
How do I select the next row/item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Column")
oItems := oGantt:Items()
oItems:AddItem("Item 1")
oItems:AddItem("Item 2")
oItems:AddItem("Item 3")
oItems:SetProperty("SelectItem",oItems:NextVisibleItem(oItems:FocusItem()),.T.)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
582
|
How do I define the visual appearance of the bar by using your EBN/skin files
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oGantt:Chart():Bars():CallMethod("Copy","Task","EBN"):SetProperty("Color",0x1000000)
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oGantt:Columns():Add("Column")
oItems := oGantt:Items()
oItems:AddBar(oItems:AddItem("Item 1"),"EBN","01/02/2001","01/04/2001")
oItems:AddBar(oItems:AddItem("Item 2"),"Task","01/02/2001","01/04/2001")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
581
|
Is it possible to have an "empty box" pattern for the bars
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Chart():Bars():CallMethod("Copy","Task","Box"):Pattern := 32/*exPatternBox*/
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oGantt:Columns():Add("Column")
oItems := oGantt:Items()
oItems:AddBar(oItems:AddItem("Item 1"),"Box","01/02/2001","01/04/2001")
oItems:AddBar(oItems:AddItem("Item 1"),"Task","01/02/2001","01/04/2001")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
580
|
How do I enable resizing ( changing the height ) the items at runtime
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:ItemsAllowSizing := -1/*exResizeItem*/
oGantt:DrawGridLines := 1/*exHLines*/
oGantt:ScrollBySingleLine := .T.
oGantt:Columns():Add("Column")
oGantt:Items():AddItem("Item 1")
oItems := oGantt:Items()
oItems:SetProperty("ItemHeight",oItems:AddItem("Item 2"),48)
oGantt:Items():AddItem("Item 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
579
|
How do I enable resizing all the items at runtime
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:ItemsAllowSizing := 1/*exResizeAllItems*/
oGantt:DrawGridLines := 1/*exHLines*/
oGantt:Columns():Add("Column")
oGantt:Items():AddItem("Item 1")
oItems := oGantt:Items()
oItems:SetProperty("ItemHeight",oItems:AddItem("Item 2"),48)
oGantt:Items():AddItem("Item 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
578
|
I'm trying to use the percentage display in my gantt's bars. Unfortunately, I don't see any percentage on the gantt chart
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oBar
LOCAL oItems
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oBar := oGantt:Chart():Bars():CallMethod("Copy","Task","BarName")
oBar:SetProperty("Color",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oBar:Pattern := 6/*exPatternBDiagonal*/
oGantt:Chart():Bars():Add("BarName%Progress"):Shortcut := "Percent"
oItems := oGantt:Items()
h := oItems:AddItem("Task 1")
oItems:AddBar(h,"Percent","01/02/2001","01/06/2001","K1")
oItems:SetProperty("ItemBar",h,"K1",10/*exBarPercent*/,0.4)
oItems:SetProperty("ItemBar",h,"K1",12/*exBarShowPercentCaption*/,.T.)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
577
|
How I can show Months in Time Unit panel into Roman numerals
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oLevel
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Chart():LevelCount := 2
oGantt:Chart():Level(0):Label := 0
oLevel := oGantt:Chart():Level(1)
oLevel:Label := "<%mr%>"
oLevel:Unit := 16/*exMonth*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
576
|
Can I show a bar with a different vertical position
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
h := oItems:AddItem("Opaque")
oItems:AddBar(h,"Task","01/02/2001","01/06/2001","K1")
h := oItems:AddItem("Transparent and Opaque")
oItems:AddBar(h,"Task","01/02/2001","01/06/2001","K1")
oItems:SetProperty("ItemBar",h,"K1",15/*exBarOffset*/,"-3")
oItems:SetProperty("ItemBar",h,"K1",16/*exBarTransparent*/,80)
oItems:AddBar(h,"Task","01/03/2001","01/07/2001","K2")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
575
|
How can I show transparent and opaque bars in the same chart
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
h := oItems:AddItem("Opaque")
oItems:AddBar(h,"Task","01/02/2001","01/06/2001","K1")
h := oItems:AddItem("Transparent and Opaque")
oItems:AddBar(h,"Task","01/02/2001","01/06/2001","K1")
oItems:SetProperty("ItemBar",h,"K1",15/*exBarOffset*/,"-3")
oItems:SetProperty("ItemBar",h,"K1",16/*exBarTransparent*/,80)
oItems:AddBar(h,"Task","01/03/2001","01/07/2001","K2")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
574
|
How can I draw bars using transparent colors
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Chart():ShowTransparentBars := 60
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oGantt:Chart():Bars():CallMethod("Copy","Task","TaskR"):SetProperty("Color",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oGantt:Chart():SetProperty("PaneWidth",.F.,48)
oGantt:Columns():Add("Column")
oItems := oGantt:Items()
h := oItems:AddItem("Item 1")
oItems:AddBar(h,"Task","01/02/2001","01/05/2001","A")
oItems:AddBar(h,"TaskR","01/04/2001","01/07/2001","B")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
573
|
Can I change the Task bar so it display a Progress or a Percent bar, but it is splitted when the task intersect a non working area
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oChart
LOCAL oItems
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oChart := oGantt:Chart()
oChart:FirstVisibleDate := "01/01/2001"
oChart:Bars():Add("Task%Progress:Split"):Shortcut := "Task"
oGantt:Columns():Add("Column")
oItems := oGantt:Items()
h := oItems:AddItem("Item 1")
oItems:AddBar(h,"Task","01/02/2001","01/16/2001","K1")
oItems:SetProperty("ItemBar",h,"K1",10/*exBarPercent*/,0.15)
oItems:SetProperty("ItemBar",h,"K1",12/*exBarShowPercentCaption*/,.T.)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
572
|
Can I change the Task bar so it display a Progress or a Percent bar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oChart
LOCAL oItems
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oChart := oGantt:Chart()
oChart:FirstVisibleDate := "01/01/2001"
oChart:Bars():Add("Task%Progress"):Shortcut := "Task"
oGantt:Columns():Add("Column")
oItems := oGantt:Items()
h := oItems:AddItem("Item 1")
oItems:AddBar(h,"Task","01/02/2001","01/05/2001","K1")
oItems:SetProperty("ItemBar",h,"K1",10/*exBarPercent*/,0.15)
oItems:SetProperty("ItemBar",h,"K1",12/*exBarShowPercentCaption*/,.T.)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
571
|
How can I remove the filter
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oColumn
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oColumn := oGantt:Columns():Add("Column")
oColumn:DisplayFilterButton := .T.
oColumn:FilterType := 1/*exBlanks*/
oGantt:ApplyFilter()
oGantt:ClearFilter()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
570
|
I use the ShowEmptyBars property, but I display seconds from 15 to 15, and the bars are not shown correctly. What can I do
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oChart
LOCAL oItems
LOCAL oLevel
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:BeginUpdate()
oChart := oGantt:Chart()
oChart:FirstVisibleDate := "01/01/2002"
oChart:LevelCount := 2
oChart:Level(0):Label := 1048576
oLevel := oChart:Level(1)
oLevel:Label := "<%ss%>"
oLevel:Count := 15
oChart:ShowEmptyBars := 15
oChart:ShowEmptyBarsUnit := 16777216/*exSecond*/
oChart:SetProperty("PaneWidth",.F.,48)
oGantt:Columns():Add("Task")
oItems := oGantt:Items()
h := oItems:AddItem("Task 1")
oItems:AddBar(h,"Task","01/01/2002 00:00:15","01/01/2002 00:00:15","A")
oItems:AddBar(h,"Task","01/01/2002 00:01:15","01/01/2002 00:01:30","B")
oItems:AddLink("AB",h,"A",h,"B")
oGantt:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
569
|
I need the bar works like in the MS Project, where task from 1/1/2001 to 1/1/2001 must display 1 day
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oGantt:Chart():ShowEmptyBars := 1
oGantt:Columns():Add("Column")
oItems := oGantt:Items()
oItems:AddBar(oItems:AddItem("Item 1"),"Task","01/01/2001","01/01/2001")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
568
|
I have a bar that has the start and end date identical. Nothing is displayed. What can I do
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oGantt:Chart():ShowEmptyBars := 1
oGantt:Columns():Add("Column")
oItems := oGantt:Items()
oItems:AddBar(oItems:AddItem("Item 1"),"Task","01/02/2001","01/02/2001")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
567
|
How can I display seconds and bars for 15 to 15
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL oLevel
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:BeginUpdate()
oGantt:Chart():FirstVisibleDate := "1/1/2002 00:00"
oGantt:Chart():LevelCount := 2
oGantt:Chart():Level(0):Label := 1048576
oLevel := oGantt:Chart():Level(1)
oLevel:Label := "<%ss%>"
oLevel:Count := 15
oGantt:Chart():SetProperty("PaneWidth",.F.,48)
oGantt:Chart():Bars():CallMethod("Copy","Task","Task2"):SetProperty("Color",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oGantt:Columns():Add("Task")
oItems := oGantt:Items()
h := oItems:AddItem("Task 1")
oItems:AddBar(h,"Task","1/1/2002 00:00:15","1/1/2002 00:00:45","A")
oItems:AddBar(h,"Task2","1/1/2002 00:01:15","1/1/2002 00:01:45","B")
oItems:AddLink("AB",h,"A",h,"B")
oGantt:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
566
|
How can I copy a predefined bar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Chart():Bars():CallMethod("Copy","Task","T2"):SetProperty("Color",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oGantt:Columns():Add("Column")
oItems := oGantt:Items()
oItems:AddBar(oItems:AddItem("Item 1"),"T2","01/02/2001","01/04/2001")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
565
|
How can I define my own custom bar, using my icons or pictures
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oBar
LOCAL oBars
LOCAL oItems
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oBars := oGantt:Chart():Bars()
oBars:AddShapeCorner(12345,1)
oBars:AddShapeCorner(22345,2)
oBar := oBars:Add("T2")
oBar:StartShape := 22345/*0x5740+exShapeIconCircleUp1*/
oBar:EndShape := 12345/*0x3020+exShapeIconVBar+exShapeIconRight*/
oBar:SetProperty("EndColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oBar:Pattern := 2/*exPatternDot*/
oBar:SetProperty("Color",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,255 } ) , .F. ))
oBar:Shape := 19/*exShapeThinCenter*/
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oGantt:Columns():Add("Column")
oItems := oGantt:Items()
oItems:AddBar(oItems:AddItem("Item 1"),"T2","01/02/2001","01/04/2001")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
564
|
How can I access a predefined bar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oGantt:Columns():Add("Column")
oItems := oGantt:Items()
oItems:AddBar(oItems:AddItem("Item 1"),"Task","01/02/2001","01/04/2001")
oGantt:Chart():Bars():Item("Task"):SetProperty("Color",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
563
|
How can I access a predefined bar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oGantt:Columns():Add("Column")
oItems := oGantt:Items()
oItems:AddBar(oItems:AddItem("Item 1"),"Task","01/02/2001","01/04/2001")
oGantt:Chart():Bars():Item("Task"):SetProperty("Color",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
562
|
How can I remove all predefined bars
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oGantt:Columns():Add("Column")
oItems := oGantt:Items()
oItems:AddBar(oItems:AddItem("Item 1"),"Task","01/02/2001","01/04/2001")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
561
|
How can I remove a predefined bar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oGantt:Columns():Add("Column")
oItems := oGantt:Items()
oItems:AddBar(oItems:AddItem("Item 1"),"Task","01/02/2001","01/04/2001")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
560
|
How do I get the number of predefined bars
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add(Transform(oGantt:Chart():Bars():Count(),""))
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
559
|
How can I change the height of the task bar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oBar
LOCAL oItems
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oBar := oGantt:Chart():Bars():CallMethod("Copy","Task","T2")
oBar:Height := 24
oBar:EndShape := 2/*exShapeIconDown1*/
oBar:SetProperty("EndColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oGantt:Columns():Add("Column")
oItems := oGantt:Items()
h := oItems:AddItem("Item 1")
oItems:SetProperty("ItemHeight",h,28)
oItems:AddBar(h,"T2","01/02/2001","01/04/2001")
oItems:AddBar(oItems:AddItem("Item 2"),"Task","01/02/2001","01/04/2001")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
558
|
How can I change the ending shape for all task bars
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oBar
LOCAL oItems
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oBar := oGantt:Chart():Bars:Item("Task")
oBar:EndShape := 1/*exShapeIconUp1*/
oBar:SetProperty("EndColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oGantt:Columns():Add("Column")
oItems := oGantt:Items()
oItems:AddBar(oItems:AddItem("Item 1"),"Task","01/02/2001","01/04/2001")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
557
|
How can I change the height of the task bar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:DefaultItemHeight := 28
oGantt:Chart():Bars():Item("Task"):Height := 24
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oGantt:Columns():Add("Column")
oItems := oGantt:Items()
oItems:AddBar(oItems:AddItem("Item 1"),"Task","01/02/2001","01/04/2001")
oItems:AddBar(oItems:AddItem("Item 2"),"Task","01/02/2001","01/04/2001")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
556
|
How can I change the starting shape for all task bars
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oBar
LOCAL oItems
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oBar := oGantt:Chart():Bars:Item("Task")
oBar:StartShape := 1/*exShapeIconUp1*/
oBar:SetProperty("StartColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oGantt:Columns():Add("Column")
oItems := oGantt:Items()
oItems:AddBar(oItems:AddItem("Item 1"),"Task","01/02/2001","01/04/2001")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
555
|
How can I change the height of the task bar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Chart():Bars():CallMethod("Copy","Task","T2"):Height := 17
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oGantt:Columns():Add("Column")
oItems := oGantt:Items()
oItems:AddBar(oItems:AddItem("Item 1"),"T2","01/02/2001","01/04/2001")
oItems:AddBar(oItems:AddItem("Item 2"),"Task","01/02/2001","01/04/2001")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
554
|
How can I change the height for all task bars
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Chart():Bars:Item("Task"):Height := 17
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oGantt:Columns():Add("Column")
oItems := oGantt:Items()
oItems:AddBar(oItems:AddItem("Item 1"),"Task","01/02/2001","01/04/2001")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
553
|
How can I change the color of the task bar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Chart():Bars():CallMethod("Copy","Task","T2"):SetProperty("Color",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oGantt:Columns():Add("Column")
oItems := oGantt:Items()
oItems:AddBar(oItems:AddItem("Item 1"),"T2","01/02/2001","01/04/2001")
oItems:AddBar(oItems:AddItem("Item 2"),"Task","01/02/2001","01/04/2001")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
552
|
How can I change the color for all task bars
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Chart():Bars:Item("Task"):SetProperty("Color",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oGantt:Columns():Add("Column")
oItems := oGantt:Items()
oItems:AddBar(oItems:AddItem("Item 1"),"Task","01/02/2001","01/04/2001")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
551
|
How can I change the shape for all task bars
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Chart():Bars:Item("Task"):Shape := 4/*exShapeSolidDown*/
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oGantt:Columns():Add("Column")
oItems := oGantt:Items()
oItems:AddBar(oItems:AddItem("Item 1"),"Task","01/02/2001","01/04/2001")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
550
|
How can I change the shape of the task bar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Chart():Bars():CallMethod("Copy","Task","T2"):Shape := 19/*exShapeThinCenter*/
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oGantt:Columns():Add("Column")
oItems := oGantt:Items()
oItems:AddBar(oItems:AddItem("Item 1"),"T2","01/02/2001","01/04/2001")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
549
|
How can I change the pattern or style for all task bars
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Chart():Bars:Item("Task"):Pattern := 5/*exPatternFDiagonal*/
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oGantt:Columns():Add("Column")
oItems := oGantt:Items()
oItems:AddBar(oItems:AddItem("Item 1"),"Task","01/02/2001","01/04/2001")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
548
|
How can I change the pattern of the task bar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Chart():Bars():CallMethod("Copy","Task","T2"):Pattern := 5/*exPatternFDiagonal*/
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oGantt:Columns():Add("Column")
oItems := oGantt:Items()
oItems:AddBar(oItems:AddItem("Item 1"),"T2","01/02/2001","01/04/2001")
oItems:AddBar(oItems:AddItem("Item 2"),"Task","01/02/2001","01/04/2001")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
547
|
How can I add a percent bar in the chart area, so the task bar is splited for non working days or hours
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():Bars():Add("Task%Progress:Split"):Shortcut := "TS"
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
h := oItems:AddItem("Task 1")
oItems:AddBar(h,"TS","01/02/2001","01/16/2001","P1")
oItems:SetProperty("ItemBar",h,"P1",10/*exBarPercent*/,0.14)
oItems:SetProperty("ItemBar",h,"P1",12/*exBarShowPercentCaption*/,.T.)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
546
|
How can I add a bar in the chart area, so the task bar is splited for non working days or hours
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():Bars():Add("Task:Split"):Shortcut := "TS"
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
oItems:AddBar(oItems:AddItem("Task 1"),"TS","01/02/2001","01/16/2001")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
545
|
How can I add a split bar in the chart area
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
oItems:AddBar(oItems:AddItem("Task 1"),"Split","01/02/2001","01/06/2001")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
544
|
How can I add a progress bar in the chart area
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
oItems:AddBar(oItems:AddItem("Task 1"),"Progress","01/02/2001","01/06/2001")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
543
|
How can I add a milestone bar in the chart area
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
oItems:AddBar(oItems:AddItem("Task 1"),"Milestone","01/02/2001","01/02/2001")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
542
|
How can I add a summary bar in the chart area
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
oItems:AddBar(oItems:AddItem("Task 1"),"Summary","01/02/2001","01/06/2001")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
541
|
How can I add a project summary bar in the chart area
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
oItems:AddBar(oItems:AddItem("Task 1"),"Project Summary","01/02/2001","01/06/2001")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
540
|
How can I add a deadline bar in the chart area
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
oItems:AddBar(oItems:AddItem("Task 1"),"Deadline","01/02/2001","01/02/2001")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
539
|
How can I add a task bar in the chart area
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
oItems:AddBar(oItems:AddItem("Task 1"),"Task","01/02/2001","01/04/2001")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
538
|
How can I assign a picture or an icon to a bar in the chart
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:SetProperty("HTMLPicture","p1","c:\exontrol\images\zipdisk.gif")
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
h := oItems:AddItem("Task 1")
oItems:SetProperty("ItemHeight",h,48)
oItems:AddBar(h,"Task","01/02/2001","01/06/2001","K1")
oItems:SetProperty("ItemBar",h,"K1",3/*exBarCaption*/,"<img>p1</img>")
oItems:SetProperty("ItemBar",h,"K1",4/*exBarHAlignCaption*/,2)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
537
|
How can I assign a picture or an icon to a bar in the chart
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
h := oItems:AddItem("Task 1")
oItems:AddBar(h,"Task","01/02/2001","01/06/2001","K1")
oItems:SetProperty("ItemBar",h,"K1",3/*exBarCaption*/,"<img>1</img>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
536
|
How can I display or add an anchor or a hyperlink in the link
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h1,h2
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
h1 := oItems:AddItem("Task 1")
oItems:AddBar(h1,"Task","01/01/2001","01/03/2001","K1")
oItems:AddItem("")
oItems:AddItem("")
h2 := oItems:AddItem("Task 2")
oItems:AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
oItems:AddLink("L1",h1,"K1",h2,"K2")
oItems:SetProperty("Link","L1",12/*exLinkText*/,"just <a1>link</a>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
535
|
How can I display a picture or an icon on the link
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h1,h2
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
h1 := oItems:AddItem("Task 1")
oItems:AddBar(h1,"Task","01/01/2001","01/03/2001","K1")
oItems:AddItem("")
oItems:AddItem("")
oItems:AddItem("")
oItems:AddItem("")
h2 := oItems:AddItem("Task 2")
oItems:AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
oItems:AddLink("L1",h1,"K1",h2,"K2")
oItems:SetProperty("Link","L1",12/*exLinkText*/,"just <img>1</img> link")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
534
|
How can I display a picture or an icon on the link
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h1,h2
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:SetProperty("HTMLPicture","pic1","c:\exontrol\images\zipdisk.gif")
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
h1 := oItems:AddItem("Task 1")
oItems:AddBar(h1,"Task","01/01/2001","01/03/2001","K1")
oItems:AddItem("")
oItems:AddItem("")
oItems:AddItem("")
oItems:AddItem("")
h2 := oItems:AddItem("Task 2")
oItems:AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
oItems:AddLink("L1",h1,"K1",h2,"K2")
oItems:SetProperty("Link","L1",12/*exLinkText*/,"<img>pic1</img><br><br>just a link")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
533
|
How can I display some HTML text or caption on link
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h1,h2
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
h1 := oItems:AddItem("Task 1")
oItems:AddBar(h1,"Task","01/01/2001","01/03/2001","K1")
h2 := oItems:AddItem("Task 2")
oItems:AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
oItems:AddLink("L1",h1,"K1",h2,"K2")
oItems:SetProperty("Link","L1",12/*exLinkText*/,"L<b>1</b>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
532
|
How can I assign a tooltip to a link
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h1,h2
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
h1 := oItems:AddItem("Task 1")
oItems:AddBar(h1,"Task","01/01/2001","01/03/2001","K1")
h2 := oItems:AddItem("Task 2")
oItems:AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
oItems:AddLink("L1",h1,"K1",h2,"K2")
oItems:SetProperty("Link","L1",12/*exLinkText*/,"L<b>1</b>")
oItems:SetProperty("Link","L1",13/*exLinkToolTip*/,"This is a bit of text that's shown when the cursor hovers the link")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
531
|
Can I change the width or the size of the link
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h1,h2
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
h1 := oItems:AddItem("Task 1")
oItems:AddBar(h1,"Task","01/02/2001","01/04/2001","K1")
h2 := oItems:AddItem("Task 2")
oItems:AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
oItems:AddLink("L1",h1,"K1",h2,"K2")
oItems:SetProperty("Link","L1",9/*exLinkStyle*/,0)
oItems:SetProperty("Link","L1",10/*exLinkWidth*/,2)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
530
|
Can I change the style of the link
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h1,h2
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
h1 := oItems:AddItem("Task 1")
oItems:AddBar(h1,"Task","01/02/2001","01/04/2001","K1")
h2 := oItems:AddItem("Task 2")
oItems:AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
oItems:AddLink("L1",h1,"K1",h2,"K2")
oItems:SetProperty("Link","L1",9/*exLinkStyle*/,4)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
529
|
Can I change the color of the link
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h1,h2
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
h1 := oItems:AddItem("Task 1")
oItems:AddBar(h1,"Task","01/02/2001","01/04/2001","K1")
h2 := oItems:AddItem("Task 2")
oItems:AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
oItems:AddLink("L1",h1,"K1",h2,"K2")
oItems:SetProperty("Link","L1",8/*exLinkColor*/,255)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
528
|
Can I change the part of the bar where the link ends
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h1,h2
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
h1 := oItems:AddItem("Task 1")
oItems:AddBar(h1,"Task","01/02/2001","01/04/2001","K1")
h2 := oItems:AddItem("Task 2")
oItems:AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
oItems:AddLink("L1",h1,"K1",h2,"K2")
oItems:SetProperty("Link","L1",6/*exLinkStartPos*/,1)
oItems:SetProperty("Link","L1",7/*exLinkEndPos*/,1)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
527
|
Can I change the part of the bar where the link starts
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h1,h2
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
h1 := oItems:AddItem("Task 1")
oItems:AddBar(h1,"Task","01/02/2001","01/04/2001","K1")
h2 := oItems:AddItem("Task 2")
oItems:AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
oItems:AddLink("L1",h1,"K1",h2,"K2")
oItems:SetProperty("Link","L1",6/*exLinkStartPos*/,0)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
526
|
How can I associate an extra data to a link
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h1,h2
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
h1 := oItems:AddItem("Task 1")
oItems:AddBar(h1,"Task","01/02/2001","01/04/2001","K1")
h2 := oItems:AddItem("Task 2")
oItems:AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
oItems:AddLink("L1",h1,"K1",h2,"K2")
oItems:SetProperty("Link","L1",5/*exLinkUserData*/,"your data")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
525
|
How can I show or hide a specified link
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h1,h2
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
h1 := oItems:AddItem("Task 1")
oItems:AddBar(h1,"Task","01/02/2001","01/04/2001","K1")
h2 := oItems:AddItem("Task 2")
oItems:AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
oItems:AddLink("L1",h1,"K1",h2,"K2")
oItems:SetProperty("Link","L1",3/*exLinkEndBar*/,.F.)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
524
|
How can I get the key of the bar where the link end
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h1,h2
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
h1 := oItems:AddItem("Task 1")
oItems:AddBar(h1,"Task","01/02/2001","01/04/2001","K1")
h2 := oItems:AddItem("Task 2")
oItems:AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
oItems:AddLink("L1",h1,"K1",h2,"K2")
oItems:AddItem(oItems:Link("L1",3/*exLinkEndBar*/))
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
523
|
How can I get the key of the bar where the link starts
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h1,h2
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
h1 := oItems:AddItem("Task 1")
oItems:AddBar(h1,"Task","01/02/2001","01/04/2001","K1")
h2 := oItems:AddItem("Task 2")
oItems:AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
oItems:AddLink("L1",h1,"K1",h2,"K2")
oItems:AddItem(oItems:Link("L1",1/*exLinkStartBar*/))
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
522
|
How can I get the handle of the item where the link ends
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h1,h2
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
h1 := oItems:AddItem("Task 1")
oItems:AddBar(h1,"Task","01/02/2001","01/04/2001","K1")
h2 := oItems:AddItem("Task 2")
oItems:AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
oItems:AddLink("L1",h1,"K1",h2,"K2")
oItems:AddItem(oItems:Link("L1",2/*exLinkEndItem*/))
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
521
|
How can I get the handle of the item where the link starts
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h1,h2
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
h1 := oItems:AddItem("Task 1")
oItems:AddBar(h1,"Task","01/02/2001","01/04/2001","K1")
h2 := oItems:AddItem("Task 2")
oItems:AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
oItems:AddLink("L1",h1,"K1",h2,"K2")
oItems:AddItem(oItems:Link("L1",0/*exLinkStartItem*/))
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
520
|
How can I enumerate the links in the chart
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h1,h2
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
h1 := oItems:AddItem("Task 1")
oItems:AddBar(h1,"Task","01/02/2001","01/04/2001","K1")
h2 := oItems:AddItem("Task 2")
oItems:AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
oItems:AddLink("L1",h1,"K1",h2,"K2")
oItems:AddLink("L2",h2,"K2",h1,"K1")
oItems:AddItem(oItems:FirstLink())
oItems:AddItem(oItems:NextLink(oItems:FirstLink()))
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
519
|
How can I access the properties and method of the link between two bars
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h1,h2
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
h1 := oItems:AddItem("Task 1")
oItems:AddBar(h1,"Task","01/01/2001","01/03/2001","K1")
h2 := oItems:AddItem("Task 2")
oItems:AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
oItems:AddLink("L1",h1,"K1",h2,"K2")
oItems:SetProperty("Link","L1",12/*exLinkText*/,"L<b>1</b>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
518
|
How can I remove a link between two bars
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h1,h2
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
h1 := oItems:AddItem("Task 1")
oItems:AddBar(h1,"Task","01/02/2001","01/04/2001","K1")
h2 := oItems:AddItem("Task 2")
oItems:AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
oItems:AddLink("L1",h1,"K1",h2,"K2")
oItems:ClearLinks()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
517
|
How can I remove a link between two bars
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h1,h2
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
h1 := oItems:AddItem("Task 1")
oItems:AddBar(h1,"Task","01/02/2001","01/04/2001","K1")
h2 := oItems:AddItem("Task 2")
oItems:AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
oItems:AddLink("L1",h1,"K1",h2,"K2")
oItems:RemoveLink("L1")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
516
|
How do I add a link between two bars
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h1,h2
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
h1 := oItems:AddItem("Task 1")
oItems:AddBar(h1,"Task","01/02/2001","01/04/2001","K1")
h2 := oItems:AddItem("Task 2")
oItems:AddBar(h2,"Task","01/05/2001","01/07/2001","K2")
oItems:AddLink("L1",h1,"K1",h2,"K2")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
515
|
How do I find the number or count of bars in the item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
h := oItems:AddItem("Task 1")
oItems:AddBar(h,"Task","01/01/2001","01/02/2001","K1")
oItems:AddBar(h,"Task","01/04/2001","01/06/2001","K2")
oItems:SetProperty("ItemBar",h,"K2",3/*exBarCaption*/,oItems:ItemBar(h,,256/*exBarsCount*/))
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
514
|
How can I assign any extra data to a bar in the chart
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
h := oItems:AddItem("Task 1")
oItems:AddBar(h,"Task","01/02/2001","01/06/2001","K1")
oItems:SetProperty("ItemBar",h,"K1",17/*exBarPattern*/,"your data")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
513
|
Is there any way to change the background color for percent value being displayed on the progress bar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oGantt:Chart():Bars():Add("Task%Progress"):Shortcut := "Percent"
oItems := oGantt:Items()
h := oItems:AddItem("Task 1")
oItems:AddBar(h,"Percent","01/02/2001","01/06/2001","K1")
oItems:SetProperty("ItemBar",h,"K1",10/*exBarPercent*/,0.35)
oItems:SetProperty("ItemBar",h,"K1",12/*exBarShowPercentCaption*/,.T.)
oItems:SetProperty("ItemBar",h,"K1",11/*exBarPercentCaptionFormat*/,"<bgcolor=FF0000> %p%</bgcolor>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
512
|
Is there any way to change the color for percent value being displayed on the progress bar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oGantt:Chart():Bars():Add("Task%Progress"):Shortcut := "Percent"
oItems := oGantt:Items()
h := oItems:AddItem("Task 1")
oItems:AddBar(h,"Percent","01/02/2001","01/06/2001","K1")
oItems:SetProperty("ItemBar",h,"K1",10/*exBarPercent*/,0.35)
oItems:SetProperty("ItemBar",h,"K1",12/*exBarShowPercentCaption*/,.T.)
oItems:SetProperty("ItemBar",h,"K1",11/*exBarPercentCaptionFormat*/,"<fgcolor=FF0000>%p%</fgcolor>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
511
|
Is there any way to change the font for percent value being displayed on the progress bar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oGantt:Chart():Bars():Add("Task%Progress"):Shortcut := "Percent"
oItems := oGantt:Items()
h := oItems:AddItem("Task 1")
oItems:AddBar(h,"Percent","01/02/2001","01/06/2001","K1")
oItems:SetProperty("ItemBar",h,"K1",10/*exBarPercent*/,0.35)
oItems:SetProperty("ItemBar",h,"K1",12/*exBarShowPercentCaption*/,.T.)
oItems:SetProperty("ItemBar",h,"K1",11/*exBarPercentCaptionFormat*/,"<b><font Tahoma;12>%%p</font></b>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
510
|
Is there any way to align the percent value being displayed on the progress bar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oGantt:Chart():Bars():Add("Task%Progress"):Shortcut := "Percent"
oItems := oGantt:Items()
h := oItems:AddItem("Task 1")
oItems:AddBar(h,"Percent","01/02/2001","01/06/2001","K1")
oItems:SetProperty("ItemBar",h,"K1",10/*exBarPercent*/,0.75)
oItems:SetProperty("ItemBar",h,"K1",12/*exBarShowPercentCaption*/,.T.)
oItems:SetProperty("ItemBar",h,"K1",11/*exBarPercentCaptionFormat*/,"%p/100")
oItems:SetProperty("ItemBar",h,"K1",15/*exBarOffset*/,0)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
509
|
Is there any way to change the format of the percent being displayed on the progress bar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oGantt:Chart():Bars():Add("Task%Progress"):Shortcut := "Percent"
oItems := oGantt:Items()
h := oItems:AddItem("Task 1")
oItems:AddBar(h,"Percent","01/02/2001","01/06/2001","K1")
oItems:SetProperty("ItemBar",h,"K1",10/*exBarPercent*/,0.4)
oItems:SetProperty("ItemBar",h,"K1",12/*exBarShowPercentCaption*/,.T.)
oItems:SetProperty("ItemBar",h,"K1",11/*exBarPercentCaptionFormat*/,"<b>%p/100</b>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
508
|
How can I show or hide the percent value in the progress bar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oGantt:Chart():Bars():Add("Task%Progress"):Shortcut := "Percent"
oItems := oGantt:Items()
h := oItems:AddItem("Task 1")
oItems:AddBar(h,"Percent","01/02/2001","01/06/2001","K1")
oItems:SetProperty("ItemBar",h,"K1",10/*exBarPercent*/,0.4)
oItems:SetProperty("ItemBar",h,"K1",12/*exBarShowPercentCaption*/,.T.)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
507
|
How can I change the percent value in a progress bar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oGantt:Chart():Bars():Add("Task%Progress"):Shortcut := "Percent"
oItems := oGantt:Items()
h := oItems:AddItem("Task 1")
oItems:AddBar(h,"Percent","01/02/2001","01/06/2001","K1")
oItems:SetProperty("ItemBar",h,"K1",10/*exBarPercent*/,0.4)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
506
|
How can I add a percent bar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oGantt:Chart():Bars():Add("Task%Progress")
oItems := oGantt:Items()
h := oItems:AddItem("Task 1")
oItems:AddBar(h,"Task%Progress","01/02/2001","01/06/2001","K1")
oItems:SetProperty("ItemBar",h,"K1",10/*exBarPercent*/,0.4)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
505
|
Can I add a bar in the chart, using your EBN files
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
h := oItems:AddItem("Task 1")
oItems:AddBar(h,"","01/02/2001","01/05/2001","K1"," EBN ")
oItems:SetProperty("ItemBar",h,"K1",7/*exBarBackColor*/,16777216)
oItems:AddBar(h,"Task","01/06/2001","01/08/2001","K2")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
504
|
How can I change the background color of the bar in the chart
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oGantt:Chart():Bars():CallMethod("Copy","Task","TaskR"):SetProperty("Color",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oItems := oGantt:Items()
h := oItems:AddItem("Task 1")
oItems:AddBar(h,"TaskR","01/02/2001","01/06/2001","K1")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
503
|
How can I change the background color of the bar in the chart
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
h := oItems:AddItem("Task 1")
oItems:AddBar(h,"Task","01/02/2001","01/06/2001","K1")
oItems:SetProperty("ItemBar",h,"K1",7/*exBarBackColor*/,8421504)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
502
|
How can I change the background color of the HTML text or caption of the bar in the chart
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
h := oItems:AddItem("Task 1")
oItems:AddBar(h,"Task","01/02/2001","01/06/2001","K1")
oItems:SetProperty("ItemBar",h,"K1",3/*exBarCaption*/,"<bgcolor=FF0000> to do </bgcolor>")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
501
|
How can I change the foreground color of the HTML text or caption of the bar in the chart
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oGantt
LOCAL oItems
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oGantt := XbpActiveXControl():new( oForm:drawingArea )
oGantt:CLSID := "Exontrol.Gantt.1" /*{09C0C400-3A0F-4CD3-8B93-8D42FCE66726}*/
oGantt:create(,, {10,60},{610,370} )
oGantt:Columns():Add("Task")
oGantt:Chart():FirstVisibleDate := "01/01/2001"
oItems := oGantt:Items()
h := oItems:AddItem("Task 1")
oItems:AddBar(h,"Task","01/02/2001","01/06/2001","K1","t<fgcolor=0000FF>o</fgcolor> do")
oItems:SetProperty("ItemBar",h,"K1",8/*exBarForeColor*/,16777215)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|